home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar
/
1995
/
JUN
/
PTRPDEMO
/
TEST12.TRP
< prev
next >
Wrap
Text File
|
1995-01-17
|
568b
|
28 lines
procedure main;
var
n : longint;
endvar
global
p : longint;
endvar
write("Enter Value : ")
readln(n);
writeln("n = ", n);
calcIt(n);
writeln("2 * n = ", p)
writeln('4 * n = ', retTest(n))
writeln('10* n = ', funcAssignTest(n))
endproc
function calcIt(a : longint) : longint;
p := 2 * a;
endproc
function retTest(a : longint) : longint;
return 4 * a;
endproc
function funcAssignTest(a : longint) : longint;
funcAssignTest := 10 * a;
endproc